home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 107 / Tiger_Disk_107_20xx_Tiger-Crew-Disk_de_Side_B.d64 / ende - 121 - (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  551b  |  12 lines
  1. 5 poke53280,.:poke53281,.:printchr$(147):a=a+8:i=i+(a+1)
  2. 10 s=54272:pokes+24,15:forz=ato42:pokes+4,33:pokes+6,248:pokes+5,9:poke646,z
  3. 15 print"                                                            [145]";
  4. 20 pokes+4,49:pokes+6,255:pokes+4,81:forn=1to(rnd(0)*i/a):poke646,n
  5. 25 print"[180][181][161]                [180][180][170][170]               [161][181][180][145]";:i=i+1
  6. 30 pokes+22,139:pokes+4,17:poke646,z
  7. 35 print"   [164][164][164][164][164]            [163][163][163]   [163][163][163]           [164][164][164][164][164]   [145]";:poke646,n+1
  8. 40 pokes+5,9*11:pokes+1,n+7:pokes+4,29:pokes+4,32:i=i+a/64
  9. 45 print"[146][223][163][163][163][163]ende[163][163][163][163][223]  [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]  [145][157] [157] [157] [157]";
  10. 50 next:print" [163][163][163][163][157] [157] [157] [157][163][163][163][163][145]":next:pokes+4,0
  11. 0 
  12.